	  I  Z   k820309    �
          11.1        %��_                                                                                                           
       charpak_mod.F90 CHARPAK_MOD              CLEANTEXT CNTMAT COPYTXT CSTRIP ISDIGIT READONELINE STR2HASH14 STR2HASH31 STRREPL STRSPLIT STRSQUEEZE TO_UPPERCASE TRANLC TRANUC TXTEXT WORDWRAPPRINT MAXSTRLEN $         @                                      �                      #STR                      
   @                                                 1 #         @                                                   #CNTMAT%PRESENT    #CNTMAT%LEN_TRIM    #CNTMAT%MAX    #CNTMAT%LEN    #STR1    #STR2 	   #IMAT 
   #LOCATIONS                  @                                 PRESENT               @                                 LEN_TRIM               @                                 MAX               @                                 LEN           
  @@                                                 1           
  @@                             	                    1           D  @                              
                      F @@                                   �                   p          p �           p �                         #         @                                                   #COPYTXT%MAX0    #COPYTXT%LEN    #COL    #STR1    #STR2                  @                                 MAX0               @                                 LEN           
  @@                                                   
  @@                                                 1           
D @@                                                  1 #         @                                                   #CSTRIP%ICHAR    #CSTRIP%PRESENT    #CSTRIP%LEN    #TEXT    #KEEPSPACES                  @                                 ICHAR               @                                 PRESENT               @                                 LEN           
D @@                                                  1            @@                                          %         @                                                           #ISDIGIT%ICHAR    #CH                  @                                 ICHAR           
  @@                                                        $         @                                      �                    #READONELINE%PRESENT    #FID    #ENDOFFILE    #IOSTATUS    #SQUEEZE                           @                                 PRESENT           
   @                                                   D  @                                                    D  @                                                     @@                                           %         @                                 !                          #STR2HASH14%ISHFT "   #STR2HASH14%ICHAR #   #STR $                 @                            "     ISHFT               @                            #     ICHAR           
   @                             $                           %         @                                 %                          #STR2HASH31%ISHFT &   #STR2HASH31%ICHAR '   #STR (                 @                            &     ISHFT               @                            '     ICHAR           
   @                             (                           #         @                                 )                  #STRREPL%INDEX *   #STRREPL%LEN +   #STR ,   #PATTERN -   #REPLTXT .                 @                            *     INDEX               @                            +     LEN           
D @@                             ,                     1           
  @@                             -                    1           
   @                             .                    1 #         @                                  /                  #STRSPLIT%TRIM 0   #STRSPLIT%PRESENT 1   #STR 2   #SEP 3   #RESULT 4   #N_SUBSTRS 5                 @                            0     TRIM               @                            1     PRESENT           
  @@                             2                    1           
  @@                             3                           ,          D  @                             4     �                    p          p �           p �                         1           F @@                              5            #         @                                 6                  #STRSQUEEZE%ADJUSTL 7   #STRSQUEEZE%ADJUSTR 8   #STRSQUEEZE%TRIM 9   #STR :                 @                            7     ADJUSTL               @                            8     ADJUSTR               @                            9     TRIM           
D @@                             :                     1 $         @                                 ;     �                     #TO_UPPERCASE%CHAR <   #TO_UPPERCASE%ICHAR =   #TO_UPPERCASE%LEN_TRIM >   #TEXT ?                         @                            <     CHAR               @                            =     ICHAR               @                            >     LEN_TRIM           
   @                             ?                    1 #         @                                  @                  #TRANLC%CHAR A   #TRANLC%ICHAR B   #TRANLC%LEN C   #TEXT D                 @                            A     CHAR               @                            B     ICHAR               @                            C     LEN           D @@                             D                     1 #         @                                  E                  #TRANUC%CHAR F   #TRANUC%ICHAR G   #TRANUC%LEN H   #TEXT I                 @                            F     CHAR               @                            G     ICHAR               @                            H     LEN           D @@                             I                     1 #         @                                 J                  #TXTEXT%REPEAT K   #TXTEXT%LEN L   #CH M   #TEXT N   #COL O   #WORD P   #IFLG Q                 @                            K     REPEAT               @                            L     LEN           
  @@                             M                    1           
  @@                             N                    1           
D  @                              O                      D @@                             P                     1           D  @                              Q            #         @                                  R                  #WORDWRAPPRINT%PRESENT S   #WORDWRAPPRINT%LEN_TRIM T   #TEXT U   #LINEWIDTH V   #DELIMITER W                 @                            S     PRESENT               @                            T     LEN_TRIM           
  @@                             U                    1           
   @                              V                      @@                             W                                                                         X                                       �              500   �   $      fn#fn !   �   �   b   uapp(CHARPAK_MOD    t  a       CLEANTEXT    �  L   a   CLEANTEXT%STR    !  �       CNTMAT    �  @      CNTMAT%PRESENT       A      CNTMAT%LEN_TRIM    `  <      CNTMAT%MAX    �  <      CNTMAT%LEN    �  L   a   CNTMAT%STR1    $  L   a   CNTMAT%STR2    p  @   a   CNTMAT%IMAT !   �  �   a   CNTMAT%LOCATIONS    D  �       COPYTXT    �  =      COPYTXT%MAX0    	  <      COPYTXT%LEN    E  @   a   COPYTXT%COL    �  L   a   COPYTXT%STR1    �  L   a   COPYTXT%STR2      �       CSTRIP    �  >      CSTRIP%ICHAR    �  @      CSTRIP%PRESENT    3  <      CSTRIP%LEN    o  L   a   CSTRIP%TEXT "   �  @   a   CSTRIP%KEEPSPACES    �  k       ISDIGIT    f	  >      ISDIGIT%ICHAR    �	  P   a   ISDIGIT%CH    �	  �       READONELINE $   �
  @      READONELINE%PRESENT     �
  @   a   READONELINE%FID &     @   a   READONELINE%ENDOFFILE %   X  @   a   READONELINE%IOSTATUS $   �  @   a   READONELINE%SQUEEZE    �  �       STR2HASH14 !   ]  >      STR2HASH14%ISHFT !   �  >      STR2HASH14%ICHAR    �  P   a   STR2HASH14%STR    )  �       STR2HASH31 !   �  >      STR2HASH31%ISHFT !   �  >      STR2HASH31%ICHAR    *  P   a   STR2HASH31%STR    z  �       STRREPL    	  >      STRREPL%INDEX    G  <      STRREPL%LEN    �  L   a   STRREPL%STR     �  L   a   STRREPL%PATTERN       L   a   STRREPL%REPLTXT    g  �       STRSPLIT      =      STRSPLIT%TRIM !   B  @      STRSPLIT%PRESENT    �  L   a   STRSPLIT%STR    �  P   a   STRSPLIT%SEP       �   a   STRSPLIT%RESULT #   �  @   a   STRSPLIT%N_SUBSTRS    �  �       STRSQUEEZE #   �  @      STRSQUEEZE%ADJUSTL #   �  @      STRSQUEEZE%ADJUSTR       =      STRSQUEEZE%TRIM    I  L   a   STRSQUEEZE%STR    �  �       TO_UPPERCASE "   A  =      TO_UPPERCASE%CHAR #   ~  >      TO_UPPERCASE%ICHAR &   �  A      TO_UPPERCASE%LEN_TRIM "   �  L   a   TO_UPPERCASE%TEXT    I  �       TRANLC    �  =      TRANLC%CHAR      >      TRANLC%ICHAR    I  <      TRANLC%LEN    �  L   a   TRANLC%TEXT    �  �       TRANUC    V  =      TRANUC%CHAR    �  >      TRANUC%ICHAR    �  <      TRANUC%LEN      L   a   TRANUC%TEXT    Y  �       TXTEXT    �  ?      TXTEXT%REPEAT    2  <      TXTEXT%LEN    n  L   a   TXTEXT%CH    �  L   a   TXTEXT%TEXT      @   a   TXTEXT%COL    F  L   a   TXTEXT%WORD    �  @   a   TXTEXT%IFLG    �  �       WORDWRAPPRINT &   y  @      WORDWRAPPRINT%PRESENT '   �  A      WORDWRAPPRINT%LEN_TRIM #   �  L   a   WORDWRAPPRINT%TEXT (   F  @   a   WORDWRAPPRINT%LINEWIDTH (   �  P   a   WORDWRAPPRINT%DELIMITER    �  s       MAXSTRLEN 